home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / pc / pb / profile.dir / 00053_Script_rolltest < prev    next >
Text File  |  1997-07-29  |  595b  |  28 lines
  1. global vid_delay
  2. on rollTest theSpriteList 
  3.   exit
  4.   -- do something to the sprite in the sprite list
  5.   
  6.   repeat with i in theSpriteList
  7.     --    set the visible of sprite i to rollover(i)
  8.     
  9.     if rollover(i) then 
  10.       do getat(roll_scripts, i) -- launch a handler for each sprite
  11.       
  12.       handcursor
  13.       -- updatestage
  14.       repeat while rollover(i) then
  15.         if the mousedown then exit repeat
  16.         updatestage
  17.         if vid_delay = TRUE then exit
  18.         
  19.         idle
  20.       end repeat
  21.       
  22.       cursor 0
  23.     end if
  24.     
  25.   end repeat
  26.   
  27. end 
  28.